  10 clear ;NT=6;for RM=20078to 20128step 2;%(RM)=0;next RM;S=6;Z=4
 340 if C>199goto 1210
 350 Z=Z-1
 355 if Z=1print "WARNING-DRINK
 360 if Z<0goto 1630
 370 P=P+1;D=(rnd (100)+25)div 10
 390 if Q>0goto 940
 400 if P<4goto 470
 410 B=B+D;if B<Cgoto 460
 430 print "PYGMIES CAUGHT UP";print "CAMEL & PEOPLE SOUP";goto 1560
 460 print #1,"PYGMIES-",C-B," MILES to REAR
 470 print #1,"YOU'VE GONE ",C," MILES!
 480 input "input COMMAND:"Y;clear ;if Y=1goto 830
 505 if Y=2goto 610
 510 if Y=3goto 680
 515 if Y=4goto 760
 520 if Y=5goto 790
 550 T=rnd (10);if T#1goto 1200
 570 print "HELP IS HERE!";print "YOU ARE ILL";S=3;Z=4;goto 340
 610 F=F+1;if F=8goto 1190
 630 gosub 880;E=rnd (10);C=C+E
 640 print "YOUR CAMEL LIKES THIS PACE";goto 340
 680 F=F+3;if F>7goto 1190
 700 gosub 880; E=2mul rnd (10);C=C+E;print "CAMEL IS RACING OVER SANDS";print ;goto 340
 760 print "REST AT LAST";F=0;goto 350
 790 print #1,"CAMEL HAS ",7-F," DAYS to GO
 800 print #1,"YOU HAVE ",S," DRINKS LEFT.
 810 print #1,"YOU CAN GO ",Z," COMMANDS
 811 print "BEfor DRINK
 830 S=S-1;if S<0goto 1200
 850 print "LOOK for next OASIS";Z=4;goto 480
 880 A=rnd (100);if A>5goto 1120
 900 print "SLAVER GOT YOU";print "SHEIK to PAY RANSOM";print "LOOK for PYGMIES!
 940 input "7=run 8=WAIT"X;if X=8goto 1060
 990 E=rnd (10);if E<5goto 1040
1010 print "YAHOO!";print "YOU MADE IT";Q=0;goto 340
1040 print "YOU WERE KILLED BY";print "VAMPIRE ANTS";goto 1410
1060 E=rnd (100);if E>24goto 1100
1090 print "RANSOM PAID";print "YOU ARE FREE!";Q=0;goto 340
1100 print "SHEIK to COLLECT";print "WAIT!";goto 340
1120 A=rnd (10);if A>2goto 1240
1140 print "right OASISleft YOUR CAMEL IS"
1141 print "FILLING CANTEEN & EATING FIGS";Z=4;S=6;return 
1190 print "SWINE-YOU RAN CAMEL to ";print "DEATH
1200 goto 1410
1210 print "YOU WON-A PARTY IS GIVEN  to HONOR YOU-PYGMIES WILL ATTEND!";goto 1560
1240 E=rnd (100);if E>5goto 1350
1260 print "SANDSTORM-PRAY!";G=rnd (10);H=rnd (10);if H<5goto 1315
1300 C=C+G;goto 1320
1315 C=C-G
1320 print #1,"YOU ARE BLOWN ",G;print "MILES OFF";return 
1350 E=rnd (100);if E>5return 
1390 print "CAMEL HURT HUMP! LUCKY-";print "PYGMIES WERE WEARY";return 
1410 U=rnd (10);print "YOU DIED IN DESERT";if U>2goto 1460
1440 print "CAMEL UNION NOT to ATTEND FUNERAL!";goto 1560
1460 if U>4goto 1490
1470 print "YOUR BODY EATEN BY";print "AARDVARKS";goto 1560
1490 if U>6goto 1520
1500 print "SHEIK USING YOUR HEAD for PURSE!";goto 1560
1520 if U>8goto 1550
1530 print "NEVER goto DESERT";goto 1560
1550 print "TURKEYS FLY";print "NOT RIDE CAMELS
1560 A=KP;goto 10
1630 print "OUT OF WATER";goto 1410
:return ;run 
